dir = dirname(rstudioapi::getActiveDocumentContext()$path)
dir
workspace = paste(dir, "/Data", sep = "")
setwd(workspace)
g = read_csv("Dohmen Gini.csv")
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Case Studies/Dohmen/Dohmen Analysis.R')
dir = dirname(rstudioapi::getActiveDocumentContext()$path)
dir
dir = dirname(rstudioapi::getActiveDocumentContext()$path)
workspace = paste(dir, "/Data", sep = "")
setwd(workspace)
g = read_csv("Dohmen Gini.csv")
g = read_csv("Dohmen Gini.csv")
dohmen = read_csv("Dohmen Data.csv")
d = read_csv("Dohmen_1.csv")
View(d)
d = d[best,-1]
d = melt(d)
d$Year = rep(t, 8)
d$Level = rep(1:8, each = 10)
d = d[order(d$Year, d$Level),]
View(d)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Case Studies/Dohmen/Dohmen Analysis.R')
View(dohmen)
View(g)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Case Studies/Dohmen/Dohmen Analysis.R')
